home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / nut3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  5.1 KB  |  150 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNut3 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "3D Nuts"
  5.    ClientHeight    =   4485
  6.    ClientLeft      =   6420
  7.    ClientTop       =   2910
  8.    ClientWidth     =   5730
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4485
  14.    ScaleWidth      =   5730
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.OptionButton Surf_Solid1 
  17.       Caption         =   "Solid"
  18.       Height          =   255
  19.       Left            =   3000
  20.       TabIndex        =   8
  21.       Top             =   3480
  22.       Value           =   -1  'True
  23.       Width           =   855
  24.    End
  25.    Begin VB.OptionButton Surf_Solid 
  26.       Caption         =   "Surface"
  27.       Height          =   255
  28.       Left            =   3000
  29.       TabIndex        =   7
  30.       Top             =   3120
  31.       Width           =   975
  32.    End
  33.    Begin VB.ListBox List1 
  34.       Height          =   2400
  35.       ItemData        =   "Nut3.frx":0000
  36.       Left            =   120
  37.       List            =   "Nut3.frx":000D
  38.       TabIndex        =   3
  39.       Top             =   360
  40.       Width           =   2535
  41.    End
  42.    Begin VB.TextBox txtdd 
  43.       Height          =   285
  44.       Left            =   2040
  45.       TabIndex        =   2
  46.       Top             =   3000
  47.       Width           =   615
  48.    End
  49.    Begin VB.CommandButton cmdOK 
  50.       Caption         =   "OK"
  51.       Height          =   375
  52.       Left            =   4320
  53.       TabIndex        =   0
  54.       Top             =   3960
  55.       Width           =   1212
  56.    End
  57.    Begin VB.CommandButton cmdCancel 
  58.       Caption         =   "Cancel"
  59.       Height          =   375
  60.       Left            =   2880
  61.       TabIndex        =   1
  62.       Top             =   3960
  63.       Width           =   1215
  64.    End
  65.    Begin VB.Frame Frame1 
  66.       Caption         =   "3D"
  67.       Height          =   975
  68.       Left            =   2880
  69.       TabIndex        =   6
  70.       Top             =   2880
  71.       Width           =   1335
  72.    End
  73.    Begin VB.Label Label1 
  74.       Alignment       =   1  'Right Justify
  75.       Caption         =   "Diameter (d) :"
  76.       Height          =   255
  77.       Left            =   720
  78.       TabIndex        =   5
  79.       Top             =   3000
  80.       Width           =   1215
  81.    End
  82.    Begin VB.Image PicPreview 
  83.       BorderStyle     =   1  'Fixed Single
  84.       Height          =   2640
  85.       Left            =   2880
  86.       Stretch         =   -1  'True
  87.       Top             =   120
  88.       Width           =   2595
  89.    End
  90.    Begin VB.Label Label3 
  91.       Caption         =   "NutType :"
  92.       Height          =   255
  93.       Left            =   120
  94.       TabIndex        =   4
  95.       Top             =   120
  96.       Width           =   735
  97.    End
  98. Attribute VB_Name = "frmNut3"
  99. Attribute VB_GlobalNameSpace = False
  100. Attribute VB_Creatable = False
  101. Attribute VB_PredeclaredId = True
  102. Attribute VB_Exposed = False
  103. Option Explicit
  104. '/******************************************************************/
  105. '/*                                                                */
  106. '/*                      TurboCAD for Windows                      */
  107. '/*                   Copyright (c) 1993 - 2001                    */
  108. '/*             International Microcomputer Software, Inc.         */
  109. '/*                            (IMSI)                              */
  110. '/*                      All rights reserved.                      */
  111. '/*                                                                */
  112. '/******************************************************************/
  113. ' Storage for read-only property indicating whether
  114. ' or not the dialog box was cancelled. Default is
  115. ' False. Note that the declaration is Private, so
  116. ' that the value cannot be set from the OLE client
  117. ' application. The client reads the value using the
  118. ' DialogCancelled property.
  119. Private blnDialogCanceled As Boolean
  120. ' Read-only property indicating cancellation of the
  121. ' dialog.
  122. Property Get DialogCanceled() As Boolean
  123.     DialogCanceled = blnDialogCanceled
  124. End Property
  125. Private Sub cmdCancel_Click()
  126.     ' Set the value of the read-only property that
  127.     ' tells the caller the dialog was cancelled.
  128.     blnDialogCanceled = True
  129.     Me.Hide
  130. End Sub
  131. Private Sub cmdOK_Click()
  132.     TypeN = List1.Text
  133.     Me.Hide
  134. End Sub
  135. Private Sub Form_Load()
  136. Dim i%, iDef%
  137.     For i = 0 To List1.ListCount - 1
  138.         If List1.List(i) = TypeN Then iDef = i
  139.     Next i
  140.     List1.ListIndex = iDef
  141.     If List1.Text = "HexNut" Then PicPreview.Picture = LoadResPicture(101, 0)
  142.     If List1.Text = "HexSlottedNut" Then PicPreview.Picture = LoadResPicture(102, 0)
  143.     If List1.Text = "LowCrownNut" Then PicPreview.Picture = LoadResPicture(103, 0)
  144. End Sub
  145. Private Sub List1_Click()
  146.     If List1.Text = "HexNut" Then PicPreview.Picture = LoadResPicture(101, 0)
  147.     If List1.Text = "HexSlottedNut" Then PicPreview.Picture = LoadResPicture(102, 0)
  148.     If List1.Text = "LowCrownNut" Then PicPreview.Picture = LoadResPicture(103, 0)
  149. End Sub
  150.